home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / menu.file < prev    next >
Text File  |  2000-04-19  |  7KB  |  243 lines
  1. G4C
  2. ; $VER: menu.file Rev.027 © by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 210 "Datei"
  4. WinType 00001000
  5. WinOnMouse 90 205
  6. WinBackGround IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xOnLoad
  11.     GuiOpen #This
  12.  
  13. XButton 0 0 100 15 "An Mail kleben"
  14.     GadFont xHelvetica.font 11 000
  15.     GuiClose #This
  16.     lvuse HTMLEXT 1
  17.     SetVar .htmlext.emad $%SiteMail
  18.     SetVar .htmlext.subj $%SiteSubj
  19.     EZREQ "Neues Mail dazu generieren, oder ans bestehende Mail anfügen?" "_1 Neu|_2 Bestehendes|[_X] Abbrechen" mailart
  20.     if $mailart = 1
  21.         LVUSE HTMLEXT 3
  22.         LVMulti First
  23.         Joinfile $$lv.dir $$lv.rec efile
  24.         Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  25.         cli 'rx $*MAILER WRITEFIRST $efile'
  26.         LVMulti Off
  27.         LVMulti Show
  28.         LVMulti First
  29.         while $$lv.line > ""
  30.             Joinfile $$lv.dir $$lv.rec efile
  31.             cli 'rx $*MAILER WRITEREST "$efile"'
  32.             Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  33.             LVMulti OFF
  34.             LVMulti Show
  35.             LVMulti NEXT
  36.         EndWhile
  37.         LVDIR #$$LV.DIR
  38.         Update "InfoBar" 1 "Alle Dateien ans EMail angeheftet ..."
  39.     elseif $mailart = 2
  40.         LVUSE HTMLEXT 3
  41.         LVMulti First
  42.         while $$lv.line > ""
  43.             Joinfile $$lv.dir $$lv.rec efile
  44.             Update "InfoBar" 1 "Hefte $efile ans EMail ..."
  45.             cli 'rx $*MAILER WRITEREST $efile'
  46.             LVMulti OFF
  47.             LVMulti Show
  48.             LVMulti NEXT
  49.         EndWhile
  50.         LVDIR #$$LV.DIR
  51.         Update "InfoBar" 1 "Alle Dateien ans Mail angeheftet ..."
  52.     endif
  53.     GuiQuit #This
  54.  
  55. XButton 0 15 100 15 "Multi Umbenennen"
  56.     GadFont xHelvetica.font 11 000
  57.     GuiClose #This
  58.     GuiLoad "HTMLEXT:gui/func.mrename"
  59.     GuiQuit #This
  60.  
  61. XBUTTON 0 30 100 15 "Such Filter"
  62.     GadFont xHelvetica.font 11 000
  63.     GuiClose #This
  64.     GuiLoad "HTMLEXT:gui/func.filefind"
  65.     GuiQuit #This
  66.  
  67. XBUTTON 0 45 100 15 "Verz. erstellen"
  68.     GadFont xHelvetica.font 11 000
  69.     GuiClose #This
  70.     GuiLoad "HTMLEXT:gui/func.makedir"
  71.     GuiQuit #This
  72.  
  73. XBUTTON 0 60 100 15 "Verz. Grösse ber."
  74.     GadFont xHelvetica.font 11 000
  75.     GuiClose #This
  76.     lvuse HTMLEXT 3
  77.     cli 'HTMLEXT:c/GetSize $$lv.dir'
  78.     GuiQuit #This
  79.  
  80. XButton 0 80 100 15 "Dublizieren"
  81.     GadFont xHelvetica.font 11 000
  82.     GuiClose #This
  83.     Update "InfoBar" 1 "Dubliziere Datei(en) ..."
  84.     LVUSE HTMLEXT 3
  85.     LVMulti First
  86.     while $$lv.line > ""
  87.         SetVar .htmlext.rqt "Dublizieren" ;Titel
  88.         SetVar .htmlext.rqb "Bitte neuen Titelname Namen eingeben."  ;Body
  89.         SetVar .htmlext.rqd "$$lv.rec"  ;Default
  90.         SetVar .htmlext.rqu "Weiter|Abbrechen"  ;Buttons
  91.         cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  92.         if $.htmlext.res = 1
  93.             JoinFile $$lv.dir $$lv.rec file
  94.             JoinFile $$lv.dir $.htmlext.tmp nfile
  95.             FAILAT 21
  96.             Update "InfoBar" 1 "Dubliziere $file nach $nfile ..."
  97.             CLI 'copy FROM $file TO $nfile CLONE'
  98.         endif
  99.         LVMulti OFF
  100.         LVMulti Show
  101.         LVMulti NEXT
  102.     EndWhile
  103.     LVDIR #$$LV.DIR
  104.     Update "InfoBar" 1 "Fertig!"
  105.     GuiQuit #This
  106.  
  107. XButton 0 95 100 15 "Information"
  108.     GadFont xHelvetica.font 11 000
  109.     GuiClose #This
  110.     LVUSE HTMLEXT 3
  111.     Update "InfoBar" 1 "Generiere Information Liste ..."
  112.     cli 'echo "Dateiliste" >t:htmlext/info.list'
  113.     cli 'echo "Aktuelles Verzeichnis:" >>t:htmlext/info.list'
  114.     cli 'echo "$$lv.dir" >>t:htmlext/info.list'
  115.     cli 'echo "=================================================================" >>t:htmlext/info.list'
  116.     cli 'echo "" >>t:htmlext/info.list'
  117.     LVMulti First
  118.     while $$lv.line > ""
  119.         JoinFile $$lv.dir $$lv.rec file
  120.         Update "InfoBar" 1 "Generiere Information für $file ..."
  121.         ifexists file $file
  122.             cli 'echo "Datei:     $file" >>t:htmlext/info.list'
  123.             FailAt 21
  124.             cli 'version $file >env:.htmlext.tmp'
  125.             cli 'echo "Version:   $.htmlext.tmp" >>t:htmlext/info.list'
  126.             cli 'list $file LFORMAT="Datum:     %D" >>t:htmlext/info.list'
  127.             cli 'list $file LFORMAT="Zeit:      %T" >>t:htmlext/info.list'
  128.             cli 'list $file LFORMAT="Grösse:    %L bytes" >>t:htmlext/info.list'
  129.             cli 'list $file LFORMAT="Kommentar: %C" >>t:htmlext/info.list'
  130.             cli 'echo " " >>t:htmlext/info.list'
  131.         endif
  132.         LVMulti OFF
  133.         LVMulti Show
  134.         LVMulti NEXT
  135.     EndWhile
  136.     Update "InfoBar" 1 "Informationsliste anzeigen ..."
  137.     cli 'multiview t:htmlext/info.list PUBSCREEN $*SCREEN'
  138.     FailAt 21
  139.     cli 'delete t:htmlext/info.list FORCE'
  140.     Update "InfoBar" 1 ""
  141.     GuiQuit #This
  142.  
  143. XButton 0 110 100 15 "Kopieren nach"
  144.     GadFont xHelvetica.font 11 000
  145.     GuiClose #This
  146.     LVUSE HTMLEXT 3
  147.     if $*MODUS = "S"
  148.         ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$$LV.DIR"
  149.         Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  150.         LVACTION COPY $dest
  151.         EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  152.         if $dirview = 1
  153.             LVDIR #$dest
  154.         endif
  155.         Update "InfoBar" 1 "Fertig!"
  156.     endif
  157.     if $*MODUS = "D"
  158.         EZREQ "Soll der Site Pfad als Grundpfad gewählt werden?" "_1 Ja|_2 Nein" "fr"
  159.         if $fr = 1
  160.             ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$*SITEDIR"
  161.             Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  162.             LVACTION COPY $dest
  163.             EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  164.             if $dirview = 1
  165.                 LVDIR #$dest
  166.             endif
  167.             Update "InfoBar" 1 "Fertig!"
  168.  
  169.         endif
  170.         if $fr = 0
  171.             ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$$LV.DIR"
  172.             Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  173.             LVACTION COPY $dest
  174.             EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  175.             if $dirview = 1
  176.                 LVDIR #$dest
  177.             endif
  178.             Update "InfoBar" 1 "Fertig!"
  179.         endif
  180.     endif
  181.     GuiQuit #This
  182.  
  183. XButton 0 125 100 15 "_Löschen"
  184.     GadKey "l"
  185.     GadFont xHelvetica.font 11 000
  186.     GuiClose #This
  187.     lvuse HTMLEXT 3
  188.     LVAction DELETE "ram:"
  189.     GuiQuit #This
  190.  
  191.  
  192. XButton 0 140 100 15 "Umbenennen"
  193.     GadFont xHelvetica.font 11 000
  194.     GuiClose #This
  195.     Update "InfoBar" 1 "Dateien umbenennen ..."
  196.     LVUSE HTMLEXT 3
  197.     LVMulti First
  198.     while $$lv.line > ""
  199.         SetVar .htmlext.rqt "Umbennen"  ;Titel
  200.         SetVar .htmlext.rqb "Bitte Dateinamen ändern ...             "  ;Body
  201.         SetVar .htmlext.rqd "$$lv.rec"  ;Default
  202.         SetVar .htmlext.rqu "Ändern|Abbrechen"  ;Buttons
  203.         cli 'rx htmlext:mod/htmlext.smod REQSTRING'
  204.         if $.htmlext.res = 1
  205.             JoinFile $$lv.dir $$lv.rec file
  206.             JoinFile $$lv.dir $.htmlext.tmp nfile
  207.             CLI 'rename FROM $file TO $nfile'
  208.         endif
  209.         LVMulti OFF
  210.         LVMulti Show
  211.         LVMulti NEXT
  212.     EndWhile
  213.     LVDIR #$$LV.DIR
  214.     Update "InfoBar" 1 "Fertig!"
  215.     GuiQuit #This
  216.  
  217. XButton 0 155 100 15 "Verschieben"
  218.     GadFont xHelvetica.font 11 000
  219.     GuiClose #This
  220.     LVUSE HTMLEXT 3
  221.     ReqFile -1 -1 250 500 "Bitte Ziel wählen ..." DIR "dest" "$$LV.DIR"
  222.     Update "InfoBar" 1 "Kopiere alle selektierte Dateien nach: $dest"
  223.     LVACTION MOVE $dest
  224.     EZREQ "Soll die Destination angezeigt werden?" "Ja|Nein" dirview
  225.     if $dirview = 1
  226.         LVDIR #$dest
  227.     endif
  228.     Update "InfoBar" 1 "Fertig!"
  229.     GuiQuit #This
  230.  
  231. XButton 0 175 100 15 "Vorlagen"
  232.     GadFont xHelvetica.font 11 000
  233.     GuiClose #This
  234.     guiload htmlext:gui/func.templates
  235.     GuiQuit #This
  236.  
  237. ;=== Abbruch Button
  238. XButton 0 195 100 15 "Abbrechen [X]"
  239.     GadFont xHelvetica.font 11 010
  240.     GadKey "x"
  241.     GuiQuit #This
  242.  
  243.